﻿Public Class KNBangCap
    Private dt As New Database_
    Private sql As String
    Public Function DSBC() As DataTable
        sql = "select * from BANGCAP"
        Dim data As DataTable = dt.execQuery(sql)
        Return data
    End Function
    Public Function SaveBC(ByVal data As DataTable) As Boolean
        sql = "select * from BANGCAP "
        Return dt.ExecUpdate(sql, data)
    End Function
End Class
